16.7 Das Steuerelement »RichTextBox« 
Während eine Textbox dem Anwender Text anzeigt, der nur eine einheitliche Schriftdarstellung hat, können in einer RichTextBox einzelne Passagen oder auch nur Wörter unterschiedliche Formate aufweisen (Größe, Schriftart, Schriftfarbe usw.). Das Rich Text Format, kurz RTF, ist ein Format, das den Ausgabetext durch Textinformationen beschreibt.
Das Steuerelement bietet eine große Anzahl von Eigenschaften und Methoden auf, um die Textdarstellung zu beeinflussen. Diese alle aufzuzählen und zu erläutern, würde hier den Rahmen sprengen. Deshalb wollen wir uns auf die allgemeine Handhabung und einige exemplarisch ausgewählte Eigenschaften und Methoden beschränken.
Wie bei einem einfachen Eingabefeld finden wir den Text einer RichTextBox in der Eigenschaft Text wieder. Formatiert wird nur der Text im Steuerelement, der entweder durch den Anwender oder durch Programmcode mit den Eigenschaften SelectionStart und SelectionLength markiert worden ist. Die markierten Textpassagen können mit diversen SelectionXxx-Eigenschaften manipuliert werden.
Der Inhalt eines RichTextBox-Steuerelements wird nicht im TXT-Format als ASCII-Datei gespeichert, sondern in einer Datei mit der Endung RTF, weil ansonsten die Formatierungsinformationen verloren gehen würden. Die Klasse RichTextBox erleichtert uns aber das Laden und Speichern einer RTF-Datei durch die beiden Methoden LoadFile und SaveFile weitestgehend. Beide Methoden sind überladen. Im einfachsten Fall muss nur eine Zeichenfolge mit der Pfadangabe zu der Datei übergeben werden, in der die Textinformation gespeichert bzw. aus der die Textinformationen gelesen werden sollen.
Tabelle 16.12 Methoden und Eigenschaften des »RichTextBox«-Steuerelements (Auszug)
| Eigenschaften/Methoden
|
Beschreibung
|
| SelectionColor
|
Ruft die Textfarbe der aktuellen Auswahl ab oder legt sie fest.
|
| SelectionFont
|
Ruft die Schriftart der aktuellen Auswahl ab oder legt sie fest.
|
| SelectionLength
|
Liefert die Anzahl der markierten Zeichen einer Zeichenfolge ab oder legt sie fest.
|
| SelectionStart
|
Ruft den Startpunkt des markierten Textes ab oder legt diesen fest.
|
| LoadFile
|
(Methode) Laden einer RTF-Datei
|
| SaveFile
|
(Methode) Speichern einer RTF-Datei
|
Das folgende Beispielprogramm will Ihnen den Einsatz einiger Eigenschaften und Methoden demonstrieren, die in der Tabelle 16.12 aufgeführt sind. So können Sie zum Beispiel einzelne Buchstaben markieren und diese in der Farbe Rot anzeigen lassen, wenn Sie auf die entsprechend bezeichnete Schaltfläche klicken. Gespeichert wird der Inhalt des RichTextBox-Steuerelements, dessen Bezeichner rtf lautet, unter dem Dateinamen myFile.rtf in dem Ordner, in dem sich die ausführbare Datei der Anwendung befindet.
| ' ---------------------------------------------------------
|
| ' Beispiel: ...\Kapitel 16\RichTextBoxDemo
|
| ' ---------------------------------------------------------
|
| Imports System.IO
|
| Public Class Form1
|
| ' fette Formatierung
|
| Private Sub btnBold_Click(...) Handles btnBold.Click
|
| rtf.SelectionFont = New Font(rtf.SelectionFont, _
|
| Me.rtf.SelectionFont.Style Xor FontStyle.Bold)
|
| rtf.Focus()
|
| End Sub
|
| ' kursive Formatierung
|
| Private Sub btnItalic_Click(...) Handles btnItalic.Click
|
| rtf.SelectionFont = New Font(rtf.SelectionFont, _
|
| Me.rtf.SelectionFont.Style Xor FontStyle.Italic)
|
| rtf.Focus()
|
| End Sub
|
| ' Schriftgröße ändern
|
| Private Sub btnSize_Click(...) Handles btnSize.Click
|
| rtf.SelectionFont = New Font(rtf.SelectionFont.Name, _
|
| txtSize.Text)
|
| rtf.Focus()
|
| End Sub
|
| ' Schriftfarbe Rot einstellen
|
| Private Sub btnColor_Click(...) Handles btnColor.Click
|
| Me.rtf.SelectionColor = Color.Red
|
| End Sub
|
| ' Speichern
|
| Private Sub btnSave_Click(...) Handles btnSave.Click
|
| Try
|
| rtf.SaveFile(Application.StartupPath + "\myFile.rtf")
|
| Catch ex As IOException
|
| MessageBox.Show(ex.Message)
|
| End Try
|
| End Sub
|
| ' Laden
|
| Private Sub btnLoad_Click(...) Handles btnLoad.Click
|
| Try
|
| rtf.LoadFile(Application.StartupPath + "\myFile.rtf")
|
| Catch ex As IOException
|
| MessageBox.Show(ex.Message)
|
| End Try
|
| End Sub
|
| End Class
|
Hier klicken, um das Bild zu Vergrößern
Abbildung 16.11 Ausgabe des Beispiels »RichTextBox«
|
